home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / elan1v5.arc / DEMO.ARC / RANTEST.E < prev    next >
Text File  |  1989-03-10  |  903b  |  44 lines
  1.  
  2. PROC put (REAL CONST a, INT CONST l):
  3.   put (text (text (a), l))
  4. ENDPROC put;
  5.  
  6. PROC meanstd (INT CONST length, REAL VAR mean, std dev):
  7.   REAL VAR sum :: 0.0, sumsq :: 0.0;
  8.   INT VAR i;
  9.   FOR i UPTO length
  10.   REP
  11.     sum INCR x [i];
  12.     sumsq INCR x [i] * x [i]
  13.   ENDREP;
  14.   mean := sum / real (length);
  15.   std dev := sqrt ((sumsq - sum * mean) / real (length - 1))
  16. ENDPROC meanstd;
  17.  
  18. program:
  19.   # Testing the randomgenerator #
  20.   put ("  0.5000 mean   0.2887 std dev");
  21.   line;
  22.   UPTO 19
  23.   REP
  24.     generate random sequence;
  25.     print its properties
  26.   ENDREP.
  27.  
  28.   generate random sequence:
  29.     LET lgth = 100;
  30.     ROW lgth REAL VAR x;
  31.     INT VAR k;
  32.     FOR k FROM 1 UPTO lgth
  33.     REP x [k] := random
  34.     ENDREP.
  35.   
  36.   print its properties:
  37.     line;
  38.     REAL VAR mean, std;
  39.     meanstd (lgth, mean, std);
  40.     put (mean, 9);
  41.     put ("     ");
  42.     put (std, 9).
  43.   
  44. ⇦